library(ggplot2)

mu <- seq(4, 6, length.out=100)
sigma <- 0.5

x <- 4.7


likelyhood <- dnorm(x, mu, sigma)

print(dnorm(x, 4.0, sigma))


df <- data.frame(x = mu, y = likelyhood)


ggplot(df, aes(x = x, y = y)) +
  geom_line(color = "blue", size = 1.2) +
  labs(title = "y = sin(x)")
